home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3tech.arc / FDATE.PRG < prev    next >
Encoding:
Text File  |  1985-11-01  |  1.5 KB  |  47 lines
  1. * Program..: Fdate.PRG
  2. * Author...: Christopher White
  3. * Date.....: March 1, 1985
  4. * Version..: dBASE III, any version
  5. * Note(s)..: This program takes a date variable passed to it
  6. *            with the PARAMETERS phrase and returns the date
  7. *            as a formatted character string.
  8. *
  9. PARAMETERS date, code, datestrg
  10. DO CASE
  11.    CASE code = 1
  12.       * ---"Jan 25, 1984"
  13.       IF DAY(date) < 10
  14.          datestrg = SUBSTR(CMONTH(date),1,3) + STR(DAY(date),2) + ', ' +;
  15.                     STR(YEAR(date),4)
  16.       ELSE
  17.          datestrg = SUBSTR(CMONTH(date),1,3) + ' ' + STR(DAY(date),2) + ', ' +;
  18.                     STR(YEAR(date),4)
  19.       ENDIF
  20.    CASE code = 2
  21.       * ---"Jan 1984"
  22.       datestrg = SUBSTR(CMONTH(date),1,3) + ' ' + STR(YEAR(date),4)
  23.    CASE code = 3
  24.       * ---"Jan 25"
  25.       IF DAY(date) < 10
  26.          datestrg = SUBSTR(CMONTH(date),1,3) + STR(DAY(date),2)
  27.       ELSE
  28.          datestrg = SUBSTR(CMONTH(date),1,3) + ' ' + STR(DAY(date),2)
  29.       ENDIF
  30.    CASE code = 4
  31.       * ---"January 25, 1984"
  32.       IF DAY(date) < 10
  33.          datestrg = CMONTH(date) + STR(DAY(date),2) + ', ' +;
  34.                     STR(YEAR(date),4)
  35.       ELSE
  36.          datestrg = CMONTH(date) + ' ' + STR(DAY(date),2) + ', ' +;
  37.                     STR(YEAR(date),4)
  38.       ENDIF
  39.    CASE code = 5
  40.       * ---"25-Jan-84"
  41.       datestrg = STR(DAY(date),2) + '-' + SUBSTR(CMONTH(date),1,3);
  42.                  + '-' + SUBSTR(STR(YEAR(date),4),3,2)
  43.    OTHERWISE
  44.       datestrg = 'Error'
  45. ENDCASE
  46. RETURN
  47. * EOP Fdate.PRG